{-# OPTIONS -Wall #-}

--------------------------------------------------------------------------------
-- |
-- Module      :  Lirio.DrumPitchNames
-- Copyright   :  (c) Stephen Tetley 2012
-- License     :  BSD3
--
-- Maintainer  :  Stephen Tetley <stephen.tetley@gmail.com>
-- Stability   :  highly unstable
-- Portability :  GHC
--
-- Percussion names - see file @drumpitch-init.ly@ in the 
-- LilyPond distribution.
--
--------------------------------------------------------------------------------


module Lirio.DrumPitchNames
  (

    acousticbassdrum
  , bassdrum
  , hisidestick
  , sidestick
  , losidestick
  , acousticsnare
  , snare                 
  , handclap              
  , electricsnare         
  , lowfloortom           
  , closedhihat           
  , hihat                 
  , highfloortom          
  , pedalhihat            
  , lowtom                
  , openhihat             
  , halfopenhihat         
  , lowmidtom             
  , himidtom              
  , crashcymbala
  , crashcymbal           
  , hightom               
  , ridecymbala           
  , ridecymbal            
  , chinesecymbal         
  , ridebell
  , tambourine
  , splashcymbal
  , cowbell               
  , crashcymbalb
  , vibraslap
  , ridecymbalb
  , mutehibongo           
  , hibongo               
  , openhibongo           
  , mutelobongo           
  , lobongo               
  , openlobongo           
  , mutehiconga           
  , muteloconga           
  , openhiconga           
  , hiconga               
  , openloconga
  , loconga               
  , hitimbale             
  , lotimbale             
  , hiagogo               
  , loagogo               
  , cabasa                
  , maracas               
  , shortwhistle          
  , longwhistle           
  , shortguiro            
  , longguiro             
  , guiro                 
  , claves                
  , hiwoodblock           
  , lowoodblock           
  , mutecuica             
  , opencuica             
  , mutetriangle          
  , triangle              
  , opentriangle          
  , tamtam
  , oneup                 
  , twoup                 
  , threeup               
  , fourup                
  , fiveup                
  , onedown               
  , twodown               
  , threedown             
  , fourdown              
  , fivedown

  ) where

import Lirio.Percussion

--------------------------------------------------------------------------------

-- 
acousticbassdrum        :: DrumPitch
acousticbassdrum        = drumPitch "acousticbassdrum"


bassdrum                :: DrumPitch
bassdrum                = drumPitch "bassdrum" 

hisidestick             :: DrumPitch
hisidestick             = drumPitch "hisidestick"

sidestick               :: DrumPitch
sidestick               = drumPitch "sidestick"

losidestick             :: DrumPitch
losidestick             = drumPitch "losidestick"

acousticsnare           :: DrumPitch
acousticsnare           = drumPitch "acousticsnare"

snare                   :: DrumPitch
snare                   = drumPitch "snare"

handclap                :: DrumPitch
handclap                = drumPitch "handclap"

electricsnare           :: DrumPitch
electricsnare           = drumPitch "electricsnare"

lowfloortom             :: DrumPitch
lowfloortom             = drumPitch "lowfloortom"

closedhihat             :: DrumPitch
closedhihat             = drumPitch "closedhihat"

hihat                   :: DrumPitch
hihat                   = drumPitch "hihat"

highfloortom            :: DrumPitch
highfloortom            = drumPitch "highfloortom"

pedalhihat              :: DrumPitch
pedalhihat              = drumPitch "pedalhihat"

lowtom                  :: DrumPitch
lowtom                  = drumPitch "lowtom"

openhihat               :: DrumPitch
openhihat               = drumPitch "openhihat"

halfopenhihat           :: DrumPitch
halfopenhihat           = drumPitch "halfopenhihat"

lowmidtom               :: DrumPitch
lowmidtom               = drumPitch "lowmidtom"

himidtom                :: DrumPitch
himidtom                = drumPitch "himidtom"

crashcymbala            :: DrumPitch
crashcymbala            = drumPitch "crashcymbala"

crashcymbal             :: DrumPitch
crashcymbal             = drumPitch "crashcymbal"

hightom                 :: DrumPitch
hightom                 = drumPitch "hightom"

ridecymbala             :: DrumPitch
ridecymbala             = drumPitch "ridecymbala"

ridecymbal              :: DrumPitch
ridecymbal              = drumPitch "ridecymbal"

chinesecymbal           :: DrumPitch
chinesecymbal           = drumPitch "chinesecymbal"

ridebell                :: DrumPitch
ridebell                = drumPitch "ridebell"

tambourine              :: DrumPitch
tambourine              = drumPitch "tambourine"

splashcymbal            :: DrumPitch
splashcymbal            = drumPitch "splashcymbal"

cowbell                 :: DrumPitch
cowbell                 = drumPitch "cowbell"

crashcymbalb            :: DrumPitch
crashcymbalb            = drumPitch "crashcymbalb"

vibraslap               :: DrumPitch
vibraslap               = drumPitch "vibraslap"

ridecymbalb             :: DrumPitch
ridecymbalb             = drumPitch "ridecymbalb"

mutehibongo             :: DrumPitch
mutehibongo             = drumPitch "mutehibongo"

hibongo                 :: DrumPitch
hibongo                 = drumPitch "hibongo"

openhibongo             :: DrumPitch
openhibongo             = drumPitch "openhibongo"

mutelobongo             :: DrumPitch
mutelobongo             = drumPitch "mutelobongo"

lobongo                 :: DrumPitch
lobongo                 = drumPitch "lobongo"

openlobongo             :: DrumPitch
openlobongo             = drumPitch "openlobongo"

mutehiconga             :: DrumPitch
mutehiconga             = drumPitch "mutehiconga"

muteloconga             :: DrumPitch
muteloconga             = drumPitch "muteloconga"

openhiconga             :: DrumPitch
openhiconga             = drumPitch "openhiconga"

hiconga                 :: DrumPitch
hiconga                 = drumPitch "hiconga"

openloconga             :: DrumPitch
openloconga             = drumPitch "openloconga"

loconga                 :: DrumPitch
loconga                 = drumPitch "loconga"

hitimbale               :: DrumPitch
hitimbale               = drumPitch "hitimbale"

lotimbale               :: DrumPitch
lotimbale               = drumPitch "lotimbale"

hiagogo                 :: DrumPitch
hiagogo                 = drumPitch "hiagogo"

loagogo                 :: DrumPitch
loagogo                 = drumPitch "loagogo"

cabasa                  :: DrumPitch
cabasa                  = drumPitch "cabasa"

maracas                 :: DrumPitch
maracas                 = drumPitch "maracas"

shortwhistle            :: DrumPitch
shortwhistle            = drumPitch "shortwhistle"

longwhistle             :: DrumPitch
longwhistle             = drumPitch "longwhistle"

shortguiro              :: DrumPitch
shortguiro              = drumPitch "shortguiro"

longguiro               :: DrumPitch
longguiro               = drumPitch "longguiro"

guiro                   :: DrumPitch
guiro                   = drumPitch "guiro"

claves                  :: DrumPitch
claves                  = drumPitch "claves"

hiwoodblock             :: DrumPitch
hiwoodblock             = drumPitch "hiwoodblock"

lowoodblock             :: DrumPitch
lowoodblock             = drumPitch "lowoodblock"

mutecuica               :: DrumPitch
mutecuica               = drumPitch "mutecuica"

opencuica               :: DrumPitch
opencuica               = drumPitch "opencuica"

mutetriangle            :: DrumPitch
mutetriangle            = drumPitch "mutetriangle"

triangle                :: DrumPitch
triangle                = drumPitch "triangle"

opentriangle            :: DrumPitch
opentriangle            = drumPitch "opentriangle"

tamtam                  :: DrumPitch
tamtam                  = drumPitch "tamtam"

oneup                   :: DrumPitch
oneup                   = drumPitch "oneup"

twoup                   :: DrumPitch
twoup                   = drumPitch "twoup"

threeup                 :: DrumPitch
threeup                 = drumPitch "threeup"

fourup                  :: DrumPitch
fourup                  = drumPitch "fourup"

fiveup                  :: DrumPitch
fiveup                  = drumPitch "fiveup"

onedown                 :: DrumPitch
onedown                 = drumPitch "onedown"

twodown                 :: DrumPitch
twodown                 = drumPitch "twodown"

threedown               :: DrumPitch
threedown               = drumPitch "threedown"

fourdown                :: DrumPitch
fourdown                = drumPitch "fourdown"

fivedown                :: DrumPitch
fivedown                = drumPitch "fivedown"

